home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 August
/
Ahoy_Magazine_86-08_1986_Double_L.d64
/
Print Formatter2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
247b
|
10 lines
1 print"[147]":poke53280,6:poke53281,1:poke646,0
2 printtab(5)"commodares....print formatter 2"
3 rem solution by
4 rem jim speers
5 rem
10 input"value, number of decimal places";v,l
15 v$=str$(int(v*10^l+.5))
20 print tab(32-len(v$)+l) left$(v$,len(v$)-l) "." right$(v$,l)
30 goto10